
 
 V a r i a b l e   N u m e r i c   F r e q u e n c y   =   1 0 0 
 
 V a r i a b l e   N u m e r i c   D u r a t i o n   =   5 2 
 
 
 
 K e y   S p a c e   G o s u b   P l a y B e e p 
 
 K e y   U p   G o s u b   K e y U p 
 
 K e y   D o w n   G o s u b   K e y D o w n 
 
 K e y   L e f t   G o s u b   K e y L e f t 
 
 K e y   R i g h t   G o s u b   K e y R i g h t 
 
 
 
 P r i n t   F r e q u e n c y   +   "   "   +   D u r a t i o n 
 
 
 
 F o r   v 1   =   1   T o   1 0 0 0 0 
 
 	 P l a y B e e p 
 
 	 W a i t   S e c o n d s   0 . 0 5 
 
 N e x t 
 
 
 
 S t o p 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   P l a y   B e e p 
 
 L a b e l   P l a y B e e p 
 
 	 B e e p   F r e q u e n c y   D u r a t i o n 
 
 	 P r i n t   F r e q u e n c y   +   "   "   +   D u r a t i o n 
 
 	 W a i t   S e c o n d s   d u r a t i o n   /   1 0 0 0 
 
 R e t u r n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   K e y s 
 
 L a b e l   K e y U p 
 
 	 D e l t a   =   1 
 
 	 C h a n g e F r e q u e n c y 
 
 R e t u r n 
 
 
 
 L a b e l   K e y D o w n 
 
 	 D e l t a   =   - 1 
 
 	 C h a n g e F r e q u e n c y 
 
 R e t u r n 
 
 
 
 L a b e l   K e y L e f t 
 
 	 D e l t a   =   - 1 
 
 	 C h a n g e D u r a t i o n 
 
 R e t u r n 
 
 
 
 L a b e l   K e y R i g h t 
 
 	 D e l t a   =   1 
 
 	 C h a n g e D u r a t i o n 
 
 R e t u r n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M o d i f y   d e l t a 
 
 V a r i a b l e   N u m e r i c   D e l t a 
 
 
 
 L a b e l   C h a n g e F r e q u e n c y 
 
 	 M o d i f y D e l t a 
 
 	 F r e q u e n c y   =   F r e q u e n c y   +   D e l t a 
 
 R e t u r n 
 
 
 
 L a b e l   C h a n g e D u r a t i o n 
 
 	 M o d i f y D e l t a 
 
 	 D u r a t i o n   =   D u r a t i o n   +   D e l t a 
 
 R e t u r n 
 
 
 
 L a b e l   M o d i f y D e l t a 
 
 	 I f   K e y ( " s h i f t " ) 
 
 	 	 D e l t a   =   D e l t a   *   1 0 0 
 
 	 E n d I f 
 
 	 I f   K e y ( " c t r l " ) 
 
 	 	 D e l t a   =   D e l t a   *   1 0 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 
 
 